<%= GetText("ChargeRates")%>

<%= GetText("PrinterCosts")%>

<% Dim objCharges Set objCharges = Server.CreateObject("PCWebAdmin.clsCharges") objCharges.TranslationExtraPerPage = GetText("ExtraPerPage") objCharges.TranslationLessPerPage = GetText("LessPerPage") objCharges.TranslationExtra = GetText("Extra") objCharges.TranslationLess = GetText("Less") objCharges.TranslationPerMetre2 = GetText("PerMetre2") objCharges.TranslationPerFoot2 = GetText("PerFoot2") objCharges.TranslationPerPage = GetText("PerPage") Function GetCostValue(objPrinter) If objPrinter.strAreaCost <> "" Then GetCostValue = objPrinter.strAreaCost ElseIf objPrinter.strPageSizeDefaultColor <> "" Then GetCostValue = GetText("Advanced") Else GetCostValue = objPrinter.strCost End If End Function Function GetOtherCostValue(objPrinter) If objPrinter.strPageSizeDefaultColor <> "" then GetOtherCostValue = GetPageSizeOtherCostValue(objPrinter) ElseIf objPrinter.strVeryLargePageSurplus <> "" Then GetOtherCostValue = "

<%= GetText("Printer") %>	<%= GetText("PageCost") %>	<%= GetText("GrayscaleDiscount") %>	<%= GetText("DuplexDiscount") %>	<%= GetText("Details") %>

" _ & "

" & GetText("LargePaper") & ":	" & objPrinter.strLargePageSurplus & "
" & GetText("VeryLargePaper") & ":	" & objPrinter.strVeryLargePageSurplus _ & "

" end if End Function Function GetPageSizeOtherCostValue(objPrinter) Dim s s = s & "" s = s & "" Dim strPageSize For Each strPageSize in objPrinter.colPageSizes s = s & "" Next s = s & "

" & GetText("Size") & "	" & GetText("GrayscaleCost") & "	" & GetText("ColorCost") & "
" & strPageSize & "	" & objPrinter.dctPageSizeGrayscaleCosts(strPageSize) & "	" & objPrinter.dctPageSizeColorCosts(strPageSize) & "

" s = s & "" s = s & "" s = s & "" s = s & "

" & GetText("DefaultGrayscaleCost") & ":	" & objPrinter.strPageSizeDefaultGrayscale & "
" & GetText("DefaultColorCost") & ":	" & objPrinter.strPageSizeDefaultColor & "

" GetPageSizeOtherCostValue = s End Function Dim colPrinters Dim objPrinter Dim lngRow Set colPrinters = objCharges.GetPrinters() lngRow = 0 For Each objPrinter in colPrinters %> <%=objPrinter.strPrinterName%> <%=GetCostValue(objPrinter)%> <%=objPrinter.strGrayscaleDiscount%> <%=objPrinter.strDuplexDiscount%> <%=GetOtherCostValue(objPrinter)%> <% lngRow = lngRow + 1 Next Set colPrinters = Nothing Set objPrinter = Nothing %>

<% If gblnHasNetCharging Then %>

<%=GetText("NetCosts")%>

<%=GetText("NetChargingType")%>:	<% If objCharges.NetChargeMethod = "MB" Then Response.Write GetText("DataUsed") Else Response.Write GetText("TimeUsed") End If %>
<%=GetText("Cost")%>:	<% If objCharges.NetChargeMethod = "MB" Then Response.Write GetTextReplace("DataCost", Array(FormatCredit(objCharges.NetCostPerMB))) Else Response.Write GetTextReplace("TimeCost", Array(FormatCredit(objCharges.NetCostPerPeriod), objCharges.NetPeriodMins)) End If %>

<% End If %>